﻿
Partial Class IntraQueryUsers
    Inherits System.Web.UI.Page
    Dim usu As New UsuarioDAO
    Protected Sub btnConsulta_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConsulta.Click

        GridView1.DataSource = usu.Lista(txtClave.Text)
        GridView1.DataBind()

    End Sub

    
    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Response.Redirect("IntraConsultasMenu.aspx")
    End Sub
End Class
